Imports System.Drawing
Public Class CConstants
    'Public Shared NormalCntColor As Color = Color.BlanchedAlmond
    Public Shared NormalCntColor As Color = Color.FromArgb(218, 218, 218)
    Public Shared NormalCntForeColor As Color = Color.Black

    Public Shared ActiveCntColor As Color = Color.FromArgb(242, 218, 188)
    Public Shared ActiveCntForeColor As Color = Color.Black

    Public Shared CntHeaderFont As Font = New Font("Microsoft Sans Serif", 12, FontStyle.Bold)
    Public Shared CntDtlFont As Font = New Font("Microsoft Sans Serif", 10, FontStyle.Bold)

    Public Shared FreezedRowColor As Color = Color.BlanchedAlmond

    Public Shared ActiveRowColor As Color = Color.LightSkyBlue
    Public Shared CurentRowColor As Color = Color.LightSeaGreen

    Public Shared ProjectMainFont As Font = New Font("Verdana", 8, FontStyle.Bold)
    Public Shared ProjectBtnFnt As Font = New Font("Verdana", 9, FontStyle.Bold)
    Public Shared ProjectFnt As Font = New Font("Verdana", 8, FontStyle.Regular)

    Public Shared AlternateRowColor As Color = Color.White
    Public Shared NormalRowColor As Color = Color.FromArgb(247, 247, 247)

    Public CntColor(9) As Color
    Public CntForeColor(9) As Color


    Public Sub New()

        CntColor(0) = Color.FromArgb(161, 209, 239)
        CntColor(1) = Color.FromArgb(161, 209, 239)
        CntColor(2) = Color.FromArgb(161, 209, 239)
        CntColor(3) = Color.FromArgb(161, 209, 239)
        CntColor(4) = Color.FromArgb(161, 209, 239)
        CntColor(5) = Color.FromArgb(161, 209, 239)
        CntColor(6) = Color.FromArgb(161, 209, 239)
        CntColor(7) = Color.FromArgb(161, 209, 239)
        CntColor(8) = Color.FromArgb(161, 209, 239)
        CntColor(9) = Color.FromArgb(161, 209, 239)

        CntForeColor(0) = Color.Red
        CntForeColor(1) = Color.Red
        CntForeColor(2) = Color.Red
        CntForeColor(3) = Color.Red
        CntForeColor(4) = Color.Red
        CntForeColor(5) = Color.Red
        CntForeColor(6) = Color.Red
        CntForeColor(7) = Color.Red
        CntForeColor(8) = Color.Red
        CntForeColor(9) = Color.Red
    End Sub
End Class
